home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / pc / 00000000 / search.dir / 00033_Script_33 < prev   
Text File  |  1995-11-17  |  1KB  |  46 lines

  1. on checkLinkies whichCast
  2.   
  3.   global theString, theLine, theRef
  4.   
  5.   put "Endocrinology:00000000" into hardDisk
  6.   put the number of lines in field whichCast into theLines
  7.   put ":" into sep
  8.   
  9.   repeat with i = 1 to theLines
  10.     
  11.     put the number of words in line i of field whichCast into theWords
  12.     repeat with ii = 1 to theWords
  13.       if ii = 1 then
  14.         put sep & word ii of line i of field whichCast into theString
  15.       else
  16.         put sep & word ii of line i of field whichCast after theString
  17.       end if
  18.     end repeat
  19.     put hardDisk & theString into theString
  20.     put i into theLine
  21.     put whichCast - 1 into refCast
  22.     put line i of field refCast into theRef
  23.     testString
  24.     
  25.   end repeat
  26.   
  27. end checkLinkies
  28. --------------------------
  29. on testString
  30.   
  31.   global theString, theLine, theRef
  32.   
  33.   put fileIO(mNew,"read", theString) into readObj
  34.   
  35.   if not objectP(readObj) then
  36.     put "the line is " && theLine & RETURN
  37.     put "the string is " && theString & RETURN
  38.     put "the ref is " && theRef & RETURN
  39.     put "*************" & RETURN
  40.  
  41.   else
  42.     readObj(mDispose)
  43.   end if
  44.   
  45. end testString
  46.